
use "$pathdata/Upload/Final_data_groups.dta", clear	
	

* Supplementary Table 3: Regression estimates of the link between markets and morality
eststo clear
eststo: qui reg prosociality markets_index motifs_total motifs_total_sqr dum_cont*, cl(lang_family)
eststo: qui reg prosociality markets_index motifs_total motifs_total_sqr $controls dum_cont*, cl(lang_family)
eststo: qui reg prosociality markets_index motifs_total motifs_total_sqr $controls dum_count*, cl(lang_family)
eststo: qui reg trust markets_index motifs_total motifs_total_sqr dum_cont*, cl(lang_family)
eststo: qui reg trust markets_index motifs_total motifs_total_sqr  $controls dum_cont*, cl(lang_family)
eststo: qui reg trust markets_index motifs_total motifs_total_sqr $controls dum_count*, cl(lang_family)
eststo: qui reg rel_universal markets_index motifs_total motifs_total_sqr dum_cont*, cl(lang_family)
eststo: qui reg rel_universal markets_index motifs_total motifs_total_sqr $controls dum_cont*, cl(lang_family)
eststo: qui reg rel_universal markets_index motifs_total motifs_total_sqr $controls dum_count*, cl(lang_family)
eststo: qui reg emotions markets_index motifs_total motifs_total_sqr dum_cont*, cl(lang_family)
eststo: qui reg emotions markets_index motifs_total motifs_total_sqr $controls dum_cont*, cl(lang_family)
eststo: qui reg emotions markets_index motifs_total motifs_total_sqr $controls dum_count*, cl(lang_family)

esttab 	using "$pathout/Tables/combined.tex", ///
		booktabs nonotes replace compress  label nomtitles ///
		indicate("Continent FE=*cont*" "Country FE=*count*") drop(_cons) ///
		se(2) b(a2)  star(* 0.10 ** 0.05 *** 0.01) ///
		prehead("{\begin{tabular}{l*{12}{c}}\toprule\toprule&\multicolumn{12}{c}{\textit{Dependent variable:}}\\[.2cm] &\multicolumn{3}{c}{Prosociality} &\multicolumn{3}{c}{Trust} &\multicolumn{3}{c}{Universalism} &\multicolumn{3}{c}{Moral emotions} \\\cmidrule(lr){2-4}\cmidrule(lr){5-7}\cmidrule(lr){8-10}\cmidrule(lr){11-13}")
		




	

* Supplementary Table 4: OLS estimates removing world regions one-by-one
eststo clear
eststo: qui reg prosociality markets_index motifs_total motifs_total_sqr $controls dum_cont* if continent!="Africa", cl(language1_n)
eststo: qui reg trust markets_index motifs_total motifs_total_sqr $controls dum_cont*  if continent!="Africa", cl(language1_n)
eststo: qui reg rel_universal markets_index motifs_total motifs_total_sqr $controls dum_cont*  if continent!="Africa", cl(language1_n)
eststo: qui reg emotions markets_index motifs_total motifs_total_sqr $controls dum_cont*  if continent!="Africa", cl(language1_n)
eststo: qui reg prosociality markets_index motifs_total motifs_total_sqr $controls dum_cont*  if continent!="Asia" | continent!="Oceania", cl(language1_n)
eststo: qui reg trust markets_index motifs_total motifs_total_sqr $controls dum_cont*  if continent!="Asia" | continent!="Oceania", cl(language1_n)
eststo: qui reg rel_universal markets_index motifs_total motifs_total_sqr $controls dum_cont*  if continent!="Asia" | continent!="Oceania", cl(language1_n)
eststo: qui reg emotions markets_index motifs_total motifs_total_sqr $controls dum_cont*  if continent!="Asia" | continent!="Oceania", cl(language1_n)
eststo: qui reg prosociality markets_index motifs_total motifs_total_sqr $controls dum_cont*  if continent!="Europe", cl(language1_n)
eststo: qui reg trust markets_index motifs_total motifs_total_sqr $controls dum_cont*  if continent!="Europe", cl(language1_n)
eststo: qui reg rel_universal markets_index motifs_total motifs_total_sqr $controls dum_cont*  if continent!="Europe", cl(language1_n)
eststo: qui reg emotions markets_index motifs_total motifs_total_sqr $controls dum_cont*  if continent!="Europe", cl(language1_n)
eststo: qui reg prosociality markets_index motifs_total motifs_total_sqr $controls dum_cont*  if continent!="North America" & continent!="South America", cl(language1_n)
eststo: qui reg trust markets_index motifs_total motifs_total_sqr $controls dum_cont*  if continent!="North America" & continent!="South America", cl(language1_n)
eststo: qui reg rel_universal markets_index motifs_total motifs_total_sqr $controls dum_cont*  if continent!="North America" & continent!="South America", cl(language1_n)
eststo: qui reg emotions markets_index motifs_total motifs_total_sqr $controls dum_cont*  if continent!="North America" & continent!="South America", cl(language1_n)

esttab 	using "$pathout/Tables/ols_continents.tex", ///
		booktabs nonotes replace compress  label nomtitles ///
		indicate("Continent FE=*dum_cont*") drop(_cons) ///
		se(2) b(a2) r2(2)  star(* 0.10 ** 0.05 *** 0.01) ///
		prehead("{\begin{tabular}{l*{16}{c}}\toprule\toprule. & \multicolumn{4}{c}{Excl. Africa} & \multicolumn{4}{c}{Excl. Asia and Oceania} & \multicolumn{4}{c}{Excl. Europe} & \multicolumn{4}{c}{Excl. Americas}\\\cmidrule(lr){2-5}\cmidrule(lr){6-9}\cmidrule(lr){10-13}\cmidrule(lr){14-17}\\ &\multicolumn{16}{c}{\textit{Dependent variable:}}\\[.2cm] & Prosoc. &Trust  &Univ. & Emotions & Prosoc. &Trust  &Univ. & Emotions & Prosoc. &Trust  &Univ. & Emotions & Prosoc. &Trust  &Univ. & Emotions\\\cmidrule(lr){2-2}\cmidrule(lr){3-3}\cmidrule(lr){4-4}\cmidrule(lr){5-5}\cmidrule(lr){6-6}\cmidrule(lr){7-7}\cmidrule(lr){8-8}\cmidrule(lr){9-9}\cmidrule(lr){10-10}\cmidrule(lr){11-11}\cmidrule(lr){12-12}\cmidrule(lr){13-13}\cmidrule(lr){14-14}\cmidrule(lr){15-15}\cmidrule(lr){16-16}\cmidrule(lr){17-17}")


		
* Supplementary Table 6: Link between simpler textual measures of markets and morality
eststo clear
eststo: qui reg prosociality_simple markets_index_simple motifs_total motifs_total_sqr dum_cont*, cl(language1_n)
eststo: qui reg prosociality_simple markets_index_simple motifs_total motifs_total_sqr $controls dum_cont*, cl(language1_n)
eststo: qui reg prosociality_simple markets_index_simple motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n)
eststo: qui reg rel_universal_simple markets_index_simple motifs_total motifs_total_sqr dum_cont*, cl(language1_n)
eststo: qui reg rel_universal_simple markets_index_simple motifs_total motifs_total_sqr $controls dum_cont*, cl(language1_n)
eststo: qui reg rel_universal_simple markets_index_simple motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n)
eststo: qui reg emotions_simple markets_index_simple motifs_total motifs_total_sqr dum_cont*, cl(language1_n)
eststo: qui reg emotions_simple markets_index_simple motifs_total motifs_total_sqr $controls dum_cont*, cl(language1_n)
eststo: qui reg emotions_simple markets_index_simple motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n)
eststo: qui reg trust markets_index_simple motifs_total motifs_total_sqr dum_cont*, cl(language1_n)
eststo: qui reg trust markets_index_simple motifs_total motifs_total_sqr $controls dum_cont*, cl(language1_n)
eststo: qui reg trust markets_index_simple motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n)

esttab 	using "$pathout/Tables/ols_simple.tex", ///
		booktabs nonotes replace compress  label nomtitles ///
		indicate("Continent FE=*cont*" "Country FE=*coun*") drop(_cons) ///
		se(2) b(a2) r2(2)  star(* 0.10 ** 0.05 *** 0.01) ///
		prehead("{\begin{tabular}{l*{12}{c}}\toprule\toprule&\multicolumn{12}{c}{\textit{Dependent variable:}}\\[.2cm] &\multicolumn{3}{c}{Prosociality (2 words)} &\multicolumn{3}{c}{Moral universalism (2 words)} &\multicolumn{3}{c}{Moral emotions (2 words)} &\multicolumn{3}{c}{Trust} \\\cmidrule(lr){2-4}\cmidrule(lr){5-7}\cmidrule(lr){8-10}\cmidrule(lr){11-13}")
		
		
		

* Supplementary Table 5: Controlling for population size
gen ln_pop_size=ln(pop_EA)
drop pop_EA
label var ln_pop_size "Ln [Population size (EA)]"

eststo clear
eststo: qui reg prosociality markets_index motifs_total motifs_total_sqr dum_cont* if ln_pop_size!=. , cl(language1_n)
eststo: qui reg prosociality markets_index motifs_total motifs_total_sqr ln_pop_size $controls dum_cont*, cl(language1_n)
eststo: qui reg prosociality markets_index motifs_total motifs_total_sqr ln_pop_size $controls dum_count*, cl(language1_n)
eststo: qui reg trust markets_index motifs_total motifs_total_sqr dum_cont* if ln_pop_size!=., cl(language1_n)
eststo: qui reg trust markets_index motifs_total motifs_total_sqr ln_pop_size $controls dum_cont*, cl(language1_n)
eststo: qui reg trust markets_index motifs_total motifs_total_sqr ln_pop_size $controls dum_count*, cl(language1_n)
eststo: qui reg rel_universal markets_index motifs_total motifs_total_sqr dum_cont* if ln_pop_size!=., cl(language1_n)
eststo: qui reg rel_universal markets_index motifs_total motifs_total_sqr ln_pop_size $controls dum_cont*, cl(language1_n)
eststo: qui reg rel_universal markets_index motifs_total motifs_total_sqr ln_pop_size $controls dum_count*, cl(language1_n)
eststo: qui reg emotions markets_index motifs_total motifs_total_sqr dum_cont* if ln_pop_size!=., cl(language1_n)
eststo: qui reg emotions markets_index motifs_total motifs_total_sqr ln_pop_size $controls dum_cont*, cl(language1_n)
eststo: qui reg emotions markets_index motifs_total motifs_total_sqr ln_pop_size $controls dum_count*, cl(language1_n)

esttab 	using "$pathout/Tables/popsize.tex", ///
		booktabs nonotes replace compress  label nomtitles ///
		indicate("Continent FE=*cont*" "Country FE=*coun*") drop(_cons) ///
		se(2) b(a2) r2(2) star(* 0.10 ** 0.05 *** 0.01) ///
		prehead("{\begin{tabular}{l*{12}{c}}\toprule\toprule&\multicolumn{12}{c}{\textit{Dependent variable:}}\\[.2cm] &\multicolumn{3}{c}{Prosociality} &\multicolumn{3}{c}{Trust} &\multicolumn{3}{c}{Universalism} &\multicolumn{3}{c}{Moral emotions} \\\cmidrule(lr){2-4}\cmidrule(lr){5-7}\cmidrule(lr){8-10}\cmidrule(lr){11-13}")
		

		
* Supplementary Table 7: Robustness: Conley standard errors
eststo clear
eststo: qui acreg  prosociality markets_index motifs_total motifs_total_sqr dum_cont*, latitude(lat) longitude(lon) distcutoff(1e03) spatial
eststo: qui acreg prosociality markets_index motifs_total motifs_total_sqr $controls dum_cont*, latitude(lat) longitude(lon) distcutoff(1e03) spatial
eststo: qui acreg prosociality (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr dum_cont*, latitude(lat) longitude(lon) distcutoff(1e03) spatial
eststo: qui acreg prosociality (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr  $controls dum_cont*, latitude(lat) longitude(lon) distcutoff(1e03) spatial
eststo: qui acreg trust markets_index motifs_total motifs_total_sqr dum_cont*, latitude(lat) longitude(lon) distcutoff(1e03) spatial
eststo: qui acreg trust markets_index motifs_total motifs_total_sqr  $controls dum_cont*, latitude(lat) longitude(lon) distcutoff(1e03) spatial
eststo: qui acreg trust (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr dum_cont*, latitude(lat) longitude(lon) distcutoff(1e03) spatial
eststo: qui acreg trust (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr $controls dum_cont*, latitude(lat) longitude(lon) distcutoff(1e03) spatial
eststo: qui acreg rel_universal markets_index motifs_total motifs_total_sqr dum_cont*, latitude(lat) longitude(lon) distcutoff(1e03) spatial
eststo: qui acreg rel_universal markets_index motifs_total motifs_total_sqr $controls dum_cont*, latitude(lat) longitude(lon) distcutoff(1e03) spatial
eststo: qui acreg rel_universal (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr dum_cont*, latitude(lat) longitude(lon) distcutoff(1e03) spatial
eststo: qui acreg rel_universal (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr $controls dum_cont*, latitude(lat) longitude(lon) distcutoff(1e03) spatial
eststo: qui acreg emotions markets_index motifs_total motifs_total_sqr dum_cont*, latitude(lat) longitude(lon) distcutoff(1e03) spatial
eststo: qui acreg emotions markets_index motifs_total motifs_total_sqr $controls dum_cont*, latitude(lat) longitude(lon) distcutoff(1e03) spatial
eststo: qui acreg emotions (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr dum_cont*, latitude(lat) longitude(lon) distcutoff(1e03) spatial
eststo: qui acreg emotions (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr $controls dum_cont*, latitude(lat) longitude(lon) distcutoff(1e03) spatial

esttab 	using "$pathout/Tables/conleySE.tex", ///
		booktabs nonotes replace compress  label nomtitles ///
		indicate("Continent FE=*cont*") drop(_cons) ///
		se(2) b(a2)  star(* 0.10 ** 0.05 *** 0.01) ///
		prehead("{\begin{tabular}{l*{16}{c}}\toprule\toprule&\multicolumn{16}{c}{\textit{Dependent variable:}}\\[.2cm] &\multicolumn{4}{c}{Prosociality} &\multicolumn{4}{c}{Trust} &\multicolumn{4}{c}{Universalism} &\multicolumn{4}{c}{Moral emotions} \\\cmidrule(lr){2-5}\cmidrule(lr){6-9}\cmidrule(lr){10-13}\cmidrule(lr){14-17}\\[-.1cm] & \multicolumn{2}{c}{OLS} & \multicolumn{2}{c}{IV} & \multicolumn{2}{c}{OLS} & \multicolumn{2}{c}{IV} & \multicolumn{2}{c}{OLS} & \multicolumn{2}{c}{IV} & \multicolumn{2}{c}{OLS} & \multicolumn{2}{c}{IV} \\\cmidrule(lr){2-3}\cmidrule(lr){4-5}\cmidrule(lr){6-7}\cmidrule(lr){8-9}\cmidrule(lr){10-11}\cmidrule(lr){12-13}\cmidrule(lr){14-15}\cmidrule(lr){16-17}")


* Supplementary Table 9: Instrumental variable estimates for Figure 3
eststo clear
eststo: qui ivreg2 prosociality (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr dum_cont*, cl(language1_n) 
estadd scalar hansenj= e(j)
estadd scalar hansenjp= e(jp)
eststo: qui ivreg2 prosociality (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr $controls dum_cont*, cl(language1_n)
estadd scalar hansenj= e(j)
estadd scalar hansenjp= e(jp)
eststo: qui ivreg2 prosociality (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n) partial(dum_count*)
estadd scalar hansenj= e(j)
estadd scalar hansenjp= e(jp)

eststo: qui ivreg2 trust (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr dum_cont*, cl(language1_n)
estadd scalar hansenj= e(j)
estadd scalar hansenjp= e(jp)
eststo: qui ivreg2 trust (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr $controls dum_cont*, cl(language1_n)
estadd scalar hansenj= e(j)
estadd scalar hansenjp= e(jp)
eststo: qui ivreg2 trust (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n) partial(dum_count*)
estadd scalar hansenj= e(j)
estadd scalar hansenjp= e(jp)

eststo: qui ivreg2 rel_universal (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr dum_cont*, cl(language1_n)
estadd scalar hansenj= e(j)
estadd scalar hansenjp= e(jp)
eststo: qui ivreg2 rel_universal (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr $controls dum_cont*, cl(language1_n)
estadd scalar hansenj= e(j)
estadd scalar hansenjp= e(jp)
eststo: qui ivreg2 rel_universal (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n) partial(dum_count*)
estadd scalar hansenj= e(j)
estadd scalar hansenjp= e(jp)

eststo: qui ivreg2 emotions (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr dum_cont*, cl(language1_n)
estadd scalar hansenj= e(j)
estadd scalar hansenjp= e(jp)
eststo: qui ivreg2 emotions (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr $controls dum_cont*, cl(language1_n)
estadd scalar hansenj= e(j)
estadd scalar hansenjp= e(jp)
eststo: qui ivreg2 emotions (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n) partial(dum_count*)
estadd scalar hansenj= e(j)
estadd scalar hansenjp= e(jp)

esttab 	using "$pathout/Tables/iv.tex", ///
		booktabs nonotes replace compress  label nomtitles ///
		indicate("Continent FE=dum_cont*") drop(_cons) ///
		se(2) b(a2) scalar("hansenj Hansen J stat" "hansenjp Hansen J p-value") star(* 0.10 ** 0.05 *** 0.01) ///
		prehead("{\begin{tabular}{l*{12}{c}}\toprule\toprule&\multicolumn{12}{c}{\textit{Dependent variable:}}\\[.2cm] &\multicolumn{3}{c}{Prosociality} &\multicolumn{3}{c}{Trust} &\multicolumn{3}{c}{Moral universalism} &\multicolumn{3}{c}{Moral emotions} \\\cmidrule(lr){2-4}\cmidrule(lr){5-7}\cmidrule(lr){8-10}\cmidrule(lr){11-13}")
*2.96 to 0.005


* Supplementary Table 10: First stage of instrumental variable estimates
eststo clear
eststo: qui reg markets_index proximity_trade_route std_eco_polarization motifs_total motifs_total_sqr dum_cont*, cl(language1_n) 
qui test proximity_trade_route std_eco_polarization
estadd scalar F_stat=r(F)
eststo: qui reg markets_index proximity_trade_route std_eco_polarization motifs_total motifs_total_sqr $controls dum_cont*, cl(language1_n)
qui test proximity_trade_route std_eco_polarization
estadd scalar F_stat=r(F)
eststo: qui reg markets_index proximity_trade_route std_eco_polarization motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n) 
qui test proximity_trade_route std_eco_polarization
estadd scalar F_stat=r(F)

esttab 	using "$pathout/Tables/iv_first.tex", ///
		booktabs nonotes replace compress  label nomtitles ///
		indicate("Continent FE=dum_cont*" "Country FE=dum_count*") drop(_cons) ///
		se(2) b(a2) scalar("F_stat F-stat") star(* 0.10 ** 0.05 *** 0.01) ///
		prehead("{\begin{tabular}{l*{3}{c}}\toprule\toprule&\multicolumn{3}{c}{\textit{Dependent variable:}}\\[.2cm] &\multicolumn{3}{c}{Importance of markets} \\\cmidrule(lr){2-4}")


		
* Supplementary Table 11: Instrumental variable estimates with trade proximity only
eststo clear
eststo: qui ivreg2 prosociality (markets_index=proximity_trade_route) motifs_total motifs_total_sqr dum_cont*, cl(language1_n) 
eststo: qui ivreg2 prosociality (markets_index=proximity_trade_route) motifs_total motifs_total_sqr $controls dum_cont*, cl(language1_n)
eststo: qui ivreg2 prosociality (markets_index=proximity_trade_route) motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n) partial(dum_count*)

eststo: qui ivreg2 trust (markets_index=proximity_trade_route) motifs_total motifs_total_sqr dum_cont*, cl(language1_n)
eststo: qui ivreg2 trust (markets_index=proximity_trade_route) motifs_total motifs_total_sqr $controls dum_cont*, cl(language1_n)
eststo: qui ivreg2 trust (markets_index=proximity_trade_route) motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n) partial(dum_count*)

eststo: qui ivreg2 rel_universal (markets_index=proximity_trade_route) motifs_total motifs_total_sqr dum_cont*, cl(language1_n)
eststo: qui ivreg2 rel_universal (markets_index=proximity_trade_route) motifs_total motifs_total_sqr $controls dum_cont*, cl(language1_n)
eststo: qui ivreg2 rel_universal (markets_index=proximity_trade_route) motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n) partial(dum_count*)

eststo: qui ivreg2 emotions (markets_index=proximity_trade_route) motifs_total motifs_total_sqr dum_cont*, cl(language1_n)
eststo: qui ivreg2 emotions (markets_index=proximity_trade_route) motifs_total motifs_total_sqr $controls dum_cont*, cl(language1_n)
eststo: qui ivreg2 emotions (markets_index=proximity_trade_route) motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n) partial(dum_count*)

esttab 	using "$pathout/Tables/iv_trade.tex", ///
		booktabs nonotes replace compress  label nomtitles ///
		indicate("Continent FE=*cont*") drop(_cons) ///
		se(2) b(a2) star(* 0.10 ** 0.05 *** 0.01) ///
		prehead("{\begin{tabular}{l*{12}{c}}\toprule\toprule&\multicolumn{12}{c}{\textit{Dependent variable:}}\\[.2cm] &\multicolumn{3}{c}{Prosociality} &\multicolumn{3}{c}{Trust} &\multicolumn{3}{c}{Moral universalism} &\multicolumn{3}{c}{Moral emotions} \\\cmidrule(lr){2-4}\cmidrule(lr){5-7}\cmidrule(lr){8-10}\cmidrule(lr){11-13}")

		

		
* Supplementary Table 12: Instrumental variable estimates with ecological polarization only
eststo clear
eststo: qui ivreg2 prosociality (markets_index=std_eco_polarization) motifs_total motifs_total_sqr dum_cont*, cl(language1_n) 
eststo: qui ivreg2 prosociality (markets_index=std_eco_polarization) motifs_total motifs_total_sqr $controls dum_cont*, cl(language1_n)
eststo: qui ivreg2 prosociality (markets_index=std_eco_polarization) motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n) partial(dum_count*)

eststo: qui ivreg2 trust (markets_index=std_eco_polarization) motifs_total motifs_total_sqr dum_cont*, cl(language1_n)
eststo: qui ivreg2 trust (markets_index=std_eco_polarization) motifs_total motifs_total_sqr $controls dum_cont*, cl(language1_n)
eststo: qui ivreg2 trust (markets_index=std_eco_polarization) motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n) partial(dum_count*)

eststo: qui ivreg2 rel_universal (markets_index=std_eco_polarization) motifs_total motifs_total_sqr dum_cont*, cl(language1_n)
eststo: qui ivreg2 rel_universal (markets_index=std_eco_polarization) motifs_total motifs_total_sqr $controls dum_cont*, cl(language1_n)
eststo: qui ivreg2 rel_universal (markets_index=std_eco_polarization) motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n) partial(dum_count*)

eststo: qui ivreg2 emotions (markets_index=std_eco_polarization) motifs_total motifs_total_sqr dum_cont*, cl(language1_n)
eststo: qui ivreg2 emotions (markets_index=std_eco_polarization) motifs_total motifs_total_sqr $controls dum_cont*, cl(language1_n)
eststo: qui ivreg2 emotions (markets_index=std_eco_polarization) motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n) partial(dum_count*)

esttab 	using "$pathout/Tables/iv_eco.tex", ///
		booktabs nonotes replace compress  label nomtitles ///
		indicate("Continent FE=*cont*") drop(_cons) ///
		se(2) b(a2)  star(* 0.10 ** 0.05 *** 0.01) ///
		prehead("{\begin{tabular}{l*{12}{c}}\toprule\toprule&\multicolumn{12}{c}{\textit{Dependent variable:}}\\[.2cm] &\multicolumn{3}{c}{Prosociality} &\multicolumn{3}{c}{Trust} &\multicolumn{3}{c}{Moral universalism} &\multicolumn{3}{c}{Moral emotions} \\\cmidrule(lr){2-4}\cmidrule(lr){5-7}\cmidrule(lr){8-10}\cmidrule(lr){11-13}")

		
		
* Supplementary Table 8: Placebo analyses: Regression estimates of the link between education and morality
eststo clear
eststo: qui reg prosociality education motifs_total motifs_total_sqr dum_cont*, cl(language1_n)
eststo: qui reg prosociality education markets_index motifs_total motifs_total_sqr dum_cont*, cl(language1_n)
eststo: qui reg trust education motifs_total motifs_total_sqr dum_cont*, cl(language1_n)
eststo: qui reg trust education markets_index motifs_total motifs_total_sqr dum_cont*, cl(language1_n)
eststo: qui reg rel_universal education motifs_total motifs_total_sqr dum_cont*, cl(language1_n)
eststo: qui reg rel_universal education markets_index motifs_total motifs_total_sqr dum_cont*, cl(language1_n)
eststo: qui reg emotions education motifs_total motifs_total_sqr dum_cont*, cl(language1_n)
eststo: qui reg emotions education markets_index motifs_total motifs_total_sqr dum_cont*, cl(language1_n)

esttab 	using "$pathout/Tables/educ.tex", ///
		booktabs nonotes replace compress  label nomtitles ///
		indicate("Continent FE=*cont*") drop(_cons) order(education markets_index) ///
		se(2) b(a2) r2(2)  star(* 0.10 ** 0.05 *** 0.01) ///
		prehead("{\begin{tabular}{l*{8}{c}}\toprule\toprule&\multicolumn{8}{c}{\textit{Dependent variable:}}\\[.2cm] &\multicolumn{2}{c}{Prosociality} &\multicolumn{2}{c}{Trust} &\multicolumn{2}{c}{Universalism} &\multicolumn{2}{c}{Moral emotions} \\\cmidrule(lr){2-3}\cmidrule(lr){4-5}\cmidrule(lr){6-7}\cmidrule(lr){8-9}")


		
	

		
* Supplementary Table 13: OLS estimates controlling for legal and political institutions
eststo clear
eststo: qui reg prosociality markets_index motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n)
eststo: qui reg prosociality markets_index motifs_total motifs_total_sqr $controls legal_institutions political_institutions dum_count*, cl(language1_n)
eststo: qui reg trust markets_index motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n)
eststo: qui reg trust markets_index motifs_total motifs_total_sqr $controls legal_institutions political_institutions dum_count*, cl(language1_n)
eststo: qui reg rel_universal markets_index motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n)
eststo: qui reg rel_universal markets_index motifs_total motifs_total_sqr $controls legal_institutions political_institutions dum_count*, cl(language1_n)
eststo: qui reg emotions markets_index motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n)
eststo: qui reg emotions markets_index motifs_total motifs_total_sqr $controls legal_institutions political_institutions dum_count*, cl(language1_n)

esttab 	using "$pathout/Tables/ols_institutions.tex", ///
		booktabs nonotes replace compress  label nomtitles ///
		indicate("Country FE=*count*") drop(_cons) ///
		se(2) b(a2) r2(2)  star(* 0.10 ** 0.05 *** 0.01) ///
		prehead("{\begin{tabular}{l*{8}{c}}\toprule\toprule&\multicolumn{8}{c}{\textit{Dependent variable:}}\\[.2cm] &\multicolumn{2}{c}{Prosociality} &\multicolumn{2}{c}{Trust} &\multicolumn{2}{c}{Moral universalism} &\multicolumn{2}{c}{Moral emotions} \\\cmidrule(lr){2-3}\cmidrule(lr){4-5}\cmidrule(lr){6-7}\cmidrule(lr){8-9}")
		
		

* Supplementary Table 14: IV estimates controlling for legal and political institutions
eststo clear
eststo: qui ivreg2 prosociality (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n) partial(dum_count*)
eststo: qui ivreg2 prosociality (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr $controls legal_institutions political_institutions dum_count*, cl(language1_n) partial(dum_count*)
eststo: qui ivreg2 trust (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n) partial(dum_count*)
eststo: qui ivreg2 trust (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr $controls legal_institutions political_institutions dum_count*, cl(language1_n) partial(dum_count*)
eststo: qui ivreg2 rel_universal (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n) partial(dum_count*)
eststo: qui ivreg2 rel_universal (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr $controls legal_institutions political_institutions dum_count*, cl(language1_n) partial(dum_count*)
eststo: qui ivreg2 emotions (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr $controls dum_count*, cl(language1_n) partial(dum_count*)
eststo: qui ivreg2 emotions (markets_index=proximity_trade_route std_eco_polarization) motifs_total motifs_total_sqr $controls legal_institutions political_institutions dum_count*, cl(language1_n) partial(dum_count*)

esttab 	using "$pathout/Tables/iv_institutions.tex", ///
		booktabs nonotes replace compress  label nomtitles ///
		indicate() drop() ///
		se(2) b(a2) star(* 0.10 ** 0.05 *** 0.01) ///
		prehead("{\begin{tabular}{l*{8}{c}}\toprule\toprule&\multicolumn{8}{c}{\textit{Dependent variable:}}\\[.2cm] &\multicolumn{2}{c}{Prosociality} &\multicolumn{2}{c}{Trust} &\multicolumn{2}{c}{Moral universalism} &\multicolumn{2}{c}{Moral emotions} \\\cmidrule(lr){2-3}\cmidrule(lr){4-5}\cmidrule(lr){6-7}\cmidrule(lr){8-9}")
		
	